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TABLEDEF TABLE 
(SEE 300) 



FTABLENAME (JOIN FOR STEPS 506 & 508) 





(SEE 516) 



FIG. 5A 
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GET FIELD DEFINITION 
TABLE AND PROCESS 

INTO INTERNAL 
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(FIGURES 5B, 5C, 5D) 
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FIGURES 6A, 6B, 6C 

STEPS 516 - 524: 
EXECUTE QUERY 

PROCESS QUERY RESULT 
SET BY GETTING THE 
RESULT SET VALUES. 
(SEE FIGURE 7) 
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Select SCLAUSE, JTYPE, SFLDSEQ FROM UnitStatTab WHERE SCLAUSE is 

NOT NULL ORDER BY SFLDSEQ 



i=l 

While not end of resultset 

{ 

// Get values from next row of resultset 
SCIause[i] - GetString [1] // get SCLAUSE 

SJTypeti] = GetString [2] //get JTYPE 

SFIdSeqti] = Getlnt [3] // get SFIdSeq 

i + + 
} 

Ssize = i~: 

FIG. 5B1 
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r 556 

Select GCLAUSE, SFLDSEQ FROM UnitStatTab WHERE GCLAUSE is 

NOT NULL ORDER BY SFLDSEQ 

i = l 

While not end of resultset 

{ 

// Get values from next row of resultset 

GCIause[i] = GetString [i] // get GCLAUSE 55- 

i + + 
} 

Gsize = i~: 

FIG. 5B3 
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SELECT UCLAUSE, JTYPE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

UCLAUSE is NOT NULL ORDER BY TFLDSEQ 

i=l 

While not end of resultset 
{ 

// Get values from next row of resultset 

UCIauseti] - GetString [1] // get UCLAUSE 

UJTypeti] = GetString [2] // get JTYPE 566 

USFIdSeqti] = Getlnt [3] // get SFIdSeq 

UFIdseq[i] = i // reset sequence 

i + + 

} 

Usize = i~: 

FIG. 5C1 
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SELECT WCLAUSE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

WCLAUSE is NOT NULL ORDER BY TFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 

WCIauseti] = GetString [1] // get WCLAUSE 

WJTypeti] = GetString [2] // get JTYPE 575 

WSFIdSeqti] = Getlnt [3] //get SFIdSeq 

WFIdseq[i] = Usize + i // reset sequence 

i+ + 

} 

Wsize = i~: 
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SELECT ICLAUSE, JTYPE, SFLDSEQ, TFLDSEQ FROM UnitStatTab WHERE 

ICLAUSE is NOT NULL ORDER BY TFLDSEQ 

i = l 

While not end of resultset 
{ 

// Get values from next row of resultset 
ICIauseti] = GetString [1] // get ICLAUSE 

IJTypeti] = GetString [2] // get JTYPE 581 

ISFIdSeqO] = Getlnt [3] // get SFIdSeq 

IFIdseqti] = i // reset sequence 

i + + 
} 

Isize = i~: 

FIG. 5D1 
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r 550 

'SELECT Complex, Unit, Sum(Calls), Sum(WrkTime) FROM OperStat 

GROUP BY Complex, Unit 1 

For i=l to Ssize 
{ 

j=SFIdSeq[i] 
if SJTypem^'String' 
StringRS[j]=GetString[i] 

GlS6 

lntRS[j]=Getint[i] 
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'UPDATE UnitStat SET Calls=?, WrkTime=?, CumCalls=CumCalls+? 

Ul U2 U3 

CumWrkTime = CumWrkTime + 

U4 

WHERE Complex=?ANDUnit=?' 
U5 U6 



For i=l to Usize 
{ 

j=UFIdSeq[i] 
k=USFIdSeq[i] 
if UJType[i]= 'String' 
setString[j]=StringRS[k] 

6lSG 

setint[j]=lntRS[k] 

} 

FIG. 8A1 
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'INSERT INTO UnitStatfComplex, Unit, Calls, WrkTime, CumCalls, 
CumWrkTime) VALUES (?,?,?,?,?,?)' 
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if IJType[i]= , String' 
setString[j]=StringRS[k] 
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